home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Experimental BBS Explossion 3
/
Experimental BBS Explossion III.iso
/
msdos
/
mxmenu.zip
/
MARXREAD.ME
< prev
next >
Wrap
Text File
|
1993-07-15
|
6KB
|
238 lines
Version 2.43
04-15-93
Bumped up the version number because it's been a while since I last
changed it.
Starting with this version MarxMenu stores it's serial number
information in the Bindery as well as the MARXMENU.EXE file. Thus when
you get a new version of MarxMenu it will serialize itself the first
time you run it. This makes updates easier.
04-16-93
BiosDate : String
Returns the date of the rom Bios.
04-18-93
MarxMenu is now more Windows aware. When running MarxMenu under Windows
the TaskNumber variable reads the Virtual Machine ID. Thus MarxMenu no
longer requires that you set a TASK= environment variable under windows.
DriveType (Drive) : String
DriveType returns the type of drive of a given drive letter. This is
like DiskType with the exception of how it deals with floppy drives.
DiskType actually tries to read the floppy so if you put a 720k disk in
a 1.4 meg drive then DiskType will return 720. DriveType returns the
type of drive the CMOS is configured for.
PcType : String
PcType returns the type of computer you are running as a string. Types
include: PC, XT, AT, PS2.
CpuName : String
Returns the name of the CPU. CPU names include:
8088, 8086, V20 ,V30, 80188, 80186, 80286,
80386, 80386SX, 80486, 80486SX
McpClass : Number
Returns the math coprocessor class.
0 = None
1 = 8078
2 = 80287
3 = 80387
4 = 80487 (486 CPU)
McpName : String
Returns the name of the marh coprocessor. If there is no math
coprocessor then an empty string is returned. Names include:
8087, 80287, 80387, 80487
EmsInstalled : Boolean
Returns True if EMS memory manager is installed.
EmsVersion : String
EmsVersion returns the version of the EMS driver you are using. If EMS
isn't present it returns an empty string.
XmsInstalled : Boolean
Returns True if XMS memory manager is installed.
XmsVersion : String
XmsVersion returns the version of the XMS driver you are using. If XMS
isn't present it returns an empty string.
VCPIInstalled : Boolean
Returns True if VCPI services are installed.
VCPIVersion : String
VCPIVersion returns the version of the VCPI driver you are using. If
VCPI isn't present it returns an empty string.
DPMIInstalled : Boolean
Returns True if DPMI services are installed.
DPMIVersion : String
DPMIVersion returns the version of the DPMI driver you are using. If
DPMI isn't present it returns an empty string.
MouseVersion : String
MouseVersion returns the version of the mouse driver you are using. If a
mouse driver isn't present it returns an empty string.
MouseIRQ : Number
Returns the interrupt number that the mouse driver is using.
MouseType : String
Reurns the type of mouse being used. If a mouse driver isn't present it
returns an empty string.
Mouse Types: BUS, SERIAL, HP, INPORT, PS2, UNKNOWN
04-21-93
ComNewLineProgram : Procedure
ComNewLineProgram is a procedure variable that if set to point to a
procedure is executed every time a new line is received at the modem.
Example:
ComNewLineProgram = Loc ExamineLastLine
Procedure ExamineLastLine
var St P
P = pos('Time Sync:',ComLastLine)
if P = 0 then Return
St = mid(ComLastLine,P + 11,17) ;read Date and Time
NovServerTime = TimeOf(St)
EndProc
In this example, ExamineLastLine is executed once each new line and is
scaned for the word "Time Sync:". If the word is found it sets the
server time to the value following that word.
04-23-93
NovChangeObjPassword (Obj, Type, OldPassword, NewPassword)
NovChangeObjPassword is like NovChangePassword except it allows you to
change the password on other objects than yourself. Type refers to the
object type. Users are type 1.
Example:
NovChangeObjPassword('DAN',1,'POTATOE','POTATO')
05-06-93
ClearKbdBuffer
ClearKbdBuffer clears the characters out of the keyboard buffer.
05-18-93
Overlayed : Boolean
Overalyed returns true if menu is loaded as an overlay.
05-25-93
I've expanded the use of the word Trim. Besides trimming the blanks from
the ends of strings it will also trim blank lines from the ends of
arrays.
05-28-93
Local : Array
Parameters passed to procedures and local variables in a procedure are
elements of an array of local variables. By using the word Local you can
address passed parameters and local variables as if they were elements
of an array.
Example:
Procedure Test (A,B)
var C,D
Writeln A B C D
EndProc
In the above example the variable A is the same as Local[1], B is
Local[2], C is Local[3], and D is Local[4]. The Local command can be
used to pass a varying number of parameters to a procedure as follows:
Example:
Procedure Test
Loop Local
Writeln Local[LoopIndex]
endloop
EndProc
Test (1,2,3,4)
This allows the procedure Test to accept and process any number of
parameters you wish to pass to it.
===============================================================
Version 2.44
06-21-93
I've changed the semaphores to work with TSRs in upper memory. You no
longer need a TSR in low memory for semaphores to live. This improves
software metering.
TSRs (Array)
TSRs returns a list of all TSRs in memory as well as the names of
pending batch files.
Example:
var TsrList
TSRs(TsrList)
Loop TsrList
Writeln TsrList[LoopIndex]
EndLoop
InMem (TsrName) : Boolean
Inmem returns true if the TSR you are looking for is loaded. This allow
you to do conditionals based on the presence or absence of a TSR. It
will also check for the names of pending batch files.
Example:
if not InMem('BTRIEVE')
Bat 'BTRIEVE.EXE'
endif
MemoryLoc (TsrName) : Number
MemoryLoc returns the memory segment address of the TSR name you
specify. If the TSR isn't in memory it returns a 0.
Example:
Writeln 'Btrieve is at $' HexString(MemoryLoc('BTRIEVE'),4)